home *** CD-ROM | disk | FTP | other *** search
/ A.C.E. 2 / ACE CD 2.iso / FILES / UTILS / AMOSPRO4.DMS / in.adf / Tutorials / Interface / Graphics.AMOS / Graphics.amosSourceCode
Encoding:
AMOS Source Code  |  1992-09-28  |  3.5 KB  |  107 lines
  1. '************************************* 
  2. '*    AMOS Professional Interface    * 
  3. '*                                   * 
  4. '*             Graphics              * 
  5. '*                                   * 
  6. '*      (c) Europress Software       * 
  7. '*                                   * 
  8. '*          Ronnie Simpson           * 
  9. '************************************* 
  10. '
  11. Load "AMOSPro_Tutorial:Tutorials/Interface/Example_resource.abk"
  12. Resource Bank 16
  13. Resource Screen Open 0,640,200,0
  14. Flash Off : Curs Off : Cls 0
  15. Palette ,,,,$222,$666,$AAA,$EEE
  16. Wait Vbl 
  17. A$=A$+"SIze      640,200;"
  18. A$=A$+"BAse      20,5;"
  19. A$=A$+"BOx       0,0,1,130,80;"
  20. A$=A$+"PRint     20,10,'Normal Text',8;"
  21. A$=A$+"PR        20,20,'Normal Text',9;"
  22. A$=A$+"PR        20,30,'Normal Text',10;"
  23. A$=A$+"PR        20,40,'Normal Text',11;"
  24. A$=A$+"PR        20,50,'Normal Text',12;"
  25. A$=A$+"PR        20,60,'Normal Text',13;"
  26. A$=A$+"BAse      160,5;"
  27. A$=A$+"BOx       0,0,1,150,80;"
  28. A$=A$+"POutiline 20,10,'Outlined Text',0,1;"
  29. A$=A$+"PO        20,20,'Outlined Text',0,2;"
  30. A$=A$+"PO        20,30,'Outlined Text',0,3;"
  31. A$=A$+"PO        20,40,'Outlined Text',0,14;"
  32. A$=A$+"PO        20,50,'Outlined Text',0,15;"
  33. A$=A$+"PO        20,60,'Outlined Text',13,0;"
  34. A$=A$+"BAse      330,5;"
  35. A$=A$+"BOx       0,0,1,300,190;"
  36. A$=A$+"POutiline 20,10,'Graphic Operations',0,7;"
  37. A$=A$+"INk       1,2,0;"
  38. A$=A$+"GLine     20,20,170,20;"
  39. A$=A$+"INk       4,2,0;"
  40. A$=A$+"GLine     20,20,170,20;"
  41. A$=A$+"INk       0,2,0;"
  42. A$=A$+"GSquare   15,30,280,180;"
  43. A$=A$+"PO        20,35,'Line shapes',0,13;"
  44. A$=A$+"INk       8,5,0;"
  45. A$=A$+"SLine     %1111000011110000;"
  46. A$=A$+"GLine     20,45,270,45;"
  47. A$=A$+"SLine     %1000110001100011;"
  48. A$=A$+"GLine     20,50,270,50;"
  49. A$=A$+"SLine     %1111111100000000;"
  50. A$=A$+"GLine     20,55,270,55;"
  51. A$=A$+"SLine     %1111111111111111;"
  52. A$=A$+"PO        20,65,'Filled Boxes',0,12;"
  53. A$=A$+"SPattern  0,1;"
  54. A$=A$+"INk       1,1,3;"
  55. A$=A$+"GBox      20,75,100,85;"
  56. A$=A$+"INk       2,2,2;"
  57. A$=A$+"GBox      105,75,185,85;"
  58. A$=A$+"INk       3,3,1;"
  59. A$=A$+"GBox      190,75,270,85;"
  60. A$=A$+"PO        20,95,'Pattern Filled Boxes',0,15;"
  61. A$=A$+"INk       1,0,0;"
  62. A$=A$+"SPattern  11,1;"
  63. A$=A$+"GBox      20,105,100,115;"
  64. A$=A$+"SPattern  14,0;"
  65. A$=A$+"INk       4,1,2;"
  66. A$=A$+"GBox      105,105,185,115;"
  67. A$=A$+"SPattern  18,0;"
  68. A$=A$+"INk       0,0,3;"
  69. A$=A$+"GBox      190,105,270,115;"
  70. A$=A$+"PO        20,125,'Squares and Rectangles',0,14;"
  71. A$=A$+"INk       1,0,0;"
  72. A$=A$+"GSquare   20,135,40,145;"
  73. A$=A$+"GSquare   65,135,105,155;"
  74. A$=A$+"INk       0,0,0;"
  75. A$=A$+"GSquare   120,135,200,155;"
  76. A$=A$+"INk       3,0,0;"
  77. A$=A$+"GSquare   124,137,196,153;"
  78. A$=A$+"INk       4,0,0;"
  79. A$=A$+"GSquare   220,135,272,155;"
  80. A$=A$+"INk       3,0,0;"
  81. A$=A$+"GSquare   20,150,40,175;"
  82. A$=A$+"INk       7,0,0;"
  83. A$=A$+"GSquare   50,160,275,175;"
  84. A$=A$+"BAse      20,95;"
  85. A$=A$+"BOx       0,0,1,295,100;"
  86. A$=A$+"POutiline 20,10,'Writing Modes',11,1;"
  87. A$=A$+"INk       15,3,0;"
  88. A$=A$+"GSquare   16,6,126,20;"
  89. A$=A$+"INk       15,12,7;"
  90. A$=A$+"SWriting  0;"
  91. A$=A$+"PRint     20,24,'AMOS Professional Interface',0;"
  92. A$=A$+"SWriting  1;"
  93. A$=A$+"PRint     20,35,'AMOS Professional Interface',0;"
  94. A$=A$+"SWriting  2;"
  95. A$=A$+"PRint     20,46,'AMOS Professional Interface',0;"
  96. A$=A$+"SWriting  4;"
  97. A$=A$+"PRint     20,57,'AMOS Professional Interface',0;"
  98. A$=A$+"SWriting  5;"
  99. A$=A$+"PRint     20,68,'AMOS Professional Interface',0;"
  100. A$=A$+"SWriting  6;"
  101. A$=A$+"PRint     20,79,'AMOS Professional Interface',0;"
  102. A$=A$+"SWriting  1;"
  103. A$=A$+"POutline  215,97,'Press any key to QUIT',0,12;"
  104. A$=A$+"RUn       0,7;"
  105. A$=A$+"EXit;"
  106. Hide 
  107. X=Dialog Box(A$,1,"Hello")